#
#   get a 95% confidence interval for the 
#   ratio of the variances from the problem
source("../ci_2popvar.R")
#
ci_2popvar( 38, 12.58, 51, 17.24, 0.95)
#
#   Test the null hypothesis that the ratio of the
#   variances is 1 versus the alternative that the 
#   ratio is not one.  Do the test at the 0.05 level.
source("../hypo_2var.R")
#                run function
hypoth_2test_var( 38, 12.58, 51, 17.24,
                   0, 0.05 )